home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Applications / ISBN folder / ISBN Test (.txt) next >
FileMaker Pro Database  |  1994-03-21  |  12KB  |  73 lines
  1. HBAM2001MAY84
  2. ISBN Test:*
  3. 0-471-59756-2
  4. 0-672-30005-2
  5. 0471597562
  6. 0672300052
  7. Pro 2.0 - 2.1F!
  8. Pro 2.0 - 2.1I
  9. Main Dictionary
  10.     Helvetica
  11. Geneva
  12. 324023x
  13.     Helvetica
  14. Geneva
  15. 8151312
  16. 3/21/94
  17. ISBN CHECK
  18.     ISBN TEXT
  19. 3/21/94
  20. ISBN CHECK
  21. A    Layout #1B
  22. A    ISBN TextB
  23. Left (ISBN, (Position (ISBN,"-",1) -1))  &  Middle (ISBN, (Position (ISBN,"-",1) +1),  (Position (ISBN,"-", (Position (ISBN,"-",1) +1)) - Position (ISBN, "-", 1) - 1) )  & Middle (ISBN, Position (ISBN, "-", PosB
  24. ition (ISBN, "-",1)+1) + 1, Position (ISBN, "-", Position (ISBN, "-",Position (ISBN, "-", 1)+1)+1) - Position (ISBN, "-", Position (ISBN, "-",1)+1) - 1) & Right (ISBN, 1)
  25. ISBN 1B
  26. A$TextToNum (Left (ISBN Text, 1)) * 10
  27. ion (ISBN, "-", Position (ISBN, "-",Position (ISBN, "-", 1)+1)+1) - Position (ISBN, "-", Position (ISBN, "-",1)+1) - 1)
  28. A    Layout #1
  29. A    Layout #1B
  30. A    Layout #1
  31. A    Layout #1B
  32. ISBN 4
  33. ISBN 4
  34. ISBN 4
  35. ISBN 4
  36. 0-938151-31-XB
  37. 093815131XC
  38. 0-93940-23-XB    09394023XC
  39. User Dictionary
  40. Pro 2.0 - 2.1F!
  41. Pro 2.0 - 2.1I
  42. Main Dictionary
  43. ISBN Check
  44. EGIf the check digit is zero, then the ISBN is good. Otherwise, it ain
  45. 0-672-30005-2B
  46. 0672300052M
  47. 0-471-59756-2B
  48. 0471597562M
  49. E    ISBN Text
  50. E    ISBN Text
  51. A    Layout #1
  52. A    Layout #1B
  53.  (ISBN Text, 5, 1)) * 6) +
  54.   (TextToNum (Middle (ISBN Text, 6, 1)) * 5) +
  55.   (TextToNum (Middle (ISBN Text, 7, 1)) * 4) +
  56.   (TextToNum (Middle (ISBN Text, 8, 1)) * 3) +
  57.   (TextToNum (Middle (ISBN Text, 9, 1)) * C
  58.   (If (Middle (ISBN Text, 10, 1) = "X"  or Middle (ISBN Text, 10, 1) = "x" ,10, TextToNum (Middle (ISBN Text, 10, 1))  ))
  59. , 11)
  60. ISBNB
  61. A    ISBN TextB
  62. Left (ISBN, (Position (ISBN,"-",1) -1))  & Middle (ISBN, (Position (ISBN,"-",1) +1),  (Position (ISBN,"-", (Position (ISBN,"-",1) +1)) - Position (ISBN, "-", 1) - 1) )  & Middle (ISBN, Position (ISBN, "-", PosiB
  63. tion (ISBN, "-",1)+1) + 1, Position (ISBN, "-", Position (ISBN, "-",Position (ISBN, "-", 1)+1)+1) - Position (ISBN, "-", Position (ISBN, "-",1)+1) - 1) & Right (ISBN, 1)
  64. ISBN CheckB
  65. Mod (
  66.   (TextToNum (Left (ISBN Text, 1)) * 10) +
  67.   (TextToNum (Middle (ISBN Text, 2, 1)) * 9) +
  68.   (TextToNum (Middle (ISBN Text, 3, 1)) * 8) +
  69.   (TextToNum (Middle (ISBN Text, 4, 1)) * 7) +
  70.   (TextToNum (Middle (ISBN Text, 3, 1)) * 8) +
  71.   (TextToNum (Middle (ISBN Text, 4, 1)) * 7) +
  72.   (TextToNum (Middle
  73.